MacHack 1996

home *** CD-ROM | disk | FTP | other *** search

/ MacHack 1996 / MacHack 1996.toast / Hacks / Hacks ’87 / Source ƒ.sit / Source ƒ / modula 2 ƒ / SFPackage ƒ / SFPACKAGE.MOD next >

MacBinary | 1986-11-10 | 2.3 KB | [TEXT/EDIT]

open in:

MacOS 8.1 extracted |

Win98 extracted |

DOS extracted

view JSON data |

view as text

This file was processed as: MacBinary (archive/macBinary).

You can browse this item here: SFPACKAGE.MOD

Confidence	Program	Detection	Match Type	Support
`66%`	dexvert	SoundTracker Module `(music/soundTracker)`	ext	Supported
`66%`	dexvert	Chip Tracker Module `(music/chipTracker)`	ext	Supported
`66%`	dexvert	Protracker Module `(music/mod)`	ext	Supported
`66%`	dexvert	Octalyser Module `(music/octalyser)`	ext	Supported
`66%`	dexvert	Star Tracker/StarTrekker Module `(music/starTracker)`	ext	Supported
`10%`	dexvert	MacBinary `(archive/macBinary)`	fallback	Supported
`1%`	dexvert	PollyTracker Module `(music/pollyTracker)`	ext	Unsupported
`1%`	dexvert	Black Viper packed music `(music/blackViperPackedMusic)`	ext	Unsupported
`1%`	dexvert	Text File `(text/txt)`	fallback	Supported
`100%`	file	MacBinary II, inited, Sun Nov 9 19:38:13 1986, modified Sun Nov 9 19:38:13 1986, creator Macintosh Edit, type ASCII, 1606 bytes "SFPACKAGE.MOD" , at 0x6c6 490 bytes resource	default (weak)
`99%`	file	data	default
`74%`	TrID	Macintosh plain text (MacBinary)	default
`25%`	TrID	MacBinary 2	default (weak)
`100%`	siegfried	fmt/1762 MacBinary (II)	default
`100%`	lsar	MacBinary	default

id metadata
key	value
macFileType	`[TEXT]`
macFileCreator	`[EDIT]`

hex view

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0d 53 46 50 41 43 4b | 41 47 45 2e 4d 4f 44 00 |..SFPACK|AGE.MOD.|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 45 44 49 | 54 01 00 00 00 00 00 00 |.TEXTEDI|T.......|
|00000050| 00 00 00 00 00 06 46 00 | 00 01 ea 9b da dc f5 9b |......F.|........|
|00000060| da dc f5 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 27 d1 00 00 |........|....'...|
|00000080| 49 4d 50 4c 45 4d 45 4e | 54 41 54 49 4f 4e 20 20 |IMPLEMEN|TATION  |
|00000090| 4d 4f 44 55 4c 45 20 53 | 46 70 61 63 6b 61 67 65 |MODULE S|Fpackage|
|000000a0| 3b 20 20 20 20 28 2a 20 | 46 72 61 6e 7a 20 4b 72 |;    (* |Franz Kr|
|000000b0| 6f 6e 73 65 64 65 72 20 | 31 38 2e 31 32 2e 38 34 |onseder |18.12.84|
|000000c0| 20 2a 29 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 | *).    |        |
|000000d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000000e0| 20 20 20 20 20 20 20 20 | 20 28 2a 20 6c 61 73 74 |        | (* last|
|000000f0| 20 6d 6f 64 69 66 69 63 | 61 74 69 6f 6e 20 32 30 | modific|ation 20|
|00000100| 2e 30 36 2e 38 35 20 66 | 78 6b 20 20 2a 29 0d 46 |.06.85 f|xk  *).F|
|00000110| 52 4f 4d 20 4d 61 63 42 | 61 73 65 20 49 4d 50 4f |ROM MacB|ase IMPO|
|00000120| 52 54 20 74 72 61 70 6e | 72 2c 74 72 61 70 61 72 |RT trapn|r,trapar|
|00000130| 67 2c 50 54 52 41 50 31 | 2c 50 6f 69 6e 74 2c 53 |g,PTRAP1|,Point,S|
|00000140| 74 72 50 74 72 3b 0d 46 | 52 4f 4d 20 53 59 53 54 |trPtr;.F|ROM SYST|
|00000150| 45 4d 20 20 49 4d 50 4f | 52 54 20 41 44 44 52 45 |EM  IMPO|RT ADDRE|
|00000160| 53 53 2c 57 4f 52 44 2c | 20 52 45 47 49 53 54 45 |SS,WORD,| REGISTE|
|00000170| 52 2c 20 53 45 54 52 45 | 47 2c 20 43 4f 44 45 3b |R, SETRE|G, CODE;|
|00000180| 0d 0d 43 4f 4e 53 54 20 | 73 66 70 75 74 3d 31 3b |..CONST |sfput=1;|
|00000190| 20 20 73 66 67 65 74 3d | 32 3b 20 73 66 70 67 65 |  sfget=|2; sfpge|
|000001a0| 74 3d 34 3b 20 20 73 66 | 70 70 75 74 3d 33 3b 20 |t=4;  sf|pput=3; |
|000001b0| 20 28 2a 20 74 72 61 70 | 20 73 65 6c 65 63 74 6f | (* trap| selecto|
|000001c0| 72 20 63 6f 6e 73 74 61 | 6e 74 73 20 2a 29 0d 20 |r consta|nts *). |
|000001d0| 20 20 20 20 20 20 50 61 | 63 6b 33 20 3d 20 30 41 |      Pa|ck3 = 0A|
|000001e0| 39 45 41 48 3b 20 20 20 | 20 20 20 20 20 20 20 20 |9EAH;   |        |
|000001f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 28 |        |       (|
|00000200| 2a 20 74 72 61 70 6e 75 | 6d 62 65 72 20 66 6f 72 |* trapnu|mber for|
|00000210| 20 53 74 61 6e 64 61 72 | 64 20 46 69 6c 65 20 50 | Standar|d File P|
|00000220| 61 63 6b 61 67 65 20 2a | 29 0d 0d 20 20 28 2a 24 |ackage *|)..  (*$|
|00000230| 50 2d 2c 24 53 2d 2c 24 | 54 2d 2a 29 0d 20 50 52 |P-,$S-,$|T-*). PR|
|00000240| 4f 43 45 44 55 52 45 20 | 53 46 50 75 74 46 69 6c |OCEDURE |SFPutFil|
|00000250| 65 28 6c 65 66 74 2c 74 | 6f 70 3a 49 4e 54 45 47 |e(left,t|op:INTEG|
|00000260| 45 52 3b 20 70 72 6f 6d | 70 74 3a 20 53 74 72 50 |ER; prom|pt: StrP|
|00000270| 74 72 3b 20 20 6f 72 69 | 67 4e 61 6d 65 3a 20 53 |tr;  ori|gName: S|
|00000280| 74 72 50 74 72 3b 0d 20 | 20 20 20 20 20 20 20 20 |trPtr;. |        |
|00000290| 20 20 20 20 20 20 20 20 | 20 20 20 64 6c 67 48 6f |        |   dlgHo|
|000002a0| 6f 6b 3a 20 50 72 6f 63 | 50 74 72 3b 20 56 41 52 |ok: Proc|Ptr; VAR|
|000002b0| 20 72 65 70 6c 79 3a 20 | 53 46 52 65 70 6c 79 29 | reply: |SFReply)|
|000002c0| 3b 0d 20 20 42 45 47 49 | 4e 20 20 74 72 61 70 61 |;.  BEGI|N  trapa|
|000002d0| 72 67 3a 3d 73 66 70 75 | 74 3b 20 74 72 61 70 6e |rg:=sfpu|t; trapn|
|000002e0| 72 3a 3d 50 61 63 6b 33 | 3b 20 50 54 52 41 50 31 |r:=Pack3|; PTRAP1|
|000002f0| 20 45 4e 44 20 20 53 46 | 50 75 74 46 69 6c 65 3b | END  SF|PutFile;|
|00000300| 0d 0d 20 28 2a 24 50 2d | 2c 24 53 2d 2c 24 54 2d |.. (*$P-|,$S-,$T-|
|00000310| 2a 29 0d 50 52 4f 43 45 | 44 55 52 45 20 53 46 50 |*).PROCE|DURE SFP|
|00000320| 50 75 74 46 69 6c 65 28 | 6c 65 66 74 2c 74 6f 70 |PutFile(|left,top|
|00000330| 3a 49 4e 54 45 47 45 52 | 3b 20 70 72 6f 6d 70 74 |:INTEGER|; prompt|
|00000340| 3a 20 53 74 72 50 74 72 | 3b 20 20 6f 72 69 67 4e |: StrPtr|;  origN|
|00000350| 61 6d 65 3a 20 53 74 72 | 50 74 72 3b 0d 20 20 20 |ame: Str|Ptr;.   |
|00000360| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000370| 20 20 64 6c 67 48 6f 6f | 6b 3a 20 50 72 6f 63 50 |  dlgHoo|k: ProcP|
|00000380| 74 72 3b 20 56 41 52 20 | 72 65 70 6c 79 3a 20 53 |tr; VAR |reply: S|
|00000390| 46 52 65 70 6c 79 3b 20 | 64 6c 67 49 44 3a 20 49 |FReply; |dlgID: I|
|000003a0| 4e 54 45 47 45 52 3b 0d | 20 20 20 20 20 20 20 20 |NTEGER;.|        |
|000003b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 66 69 6c |        |     fil|
|000003c0| 74 65 72 50 72 6f 63 3a | 20 50 72 6f 63 50 74 72 |terProc:| ProcPtr|
|000003d0| 29 3b 0d 20 20 42 45 47 | 49 4e 20 74 72 61 70 61 |);.  BEG|IN trapa|
|000003e0| 72 67 3a 3d 73 66 70 70 | 75 74 3b 20 74 72 61 70 |rg:=sfpp|ut; trap|
|000003f0| 6e 72 3a 3d 50 61 63 6b | 33 3b 20 50 54 52 41 50 |nr:=Pack|3; PTRAP|
|00000400| 31 20 45 4e 44 20 20 53 | 46 50 50 75 74 46 69 6c |1 END  S|FPPutFil|
|00000410| 65 3b 0d 0d 20 28 2a 24 | 50 2d 2c 24 53 2d 2c 24 |e;.. (*$|P-,$S-,$|
|00000420| 54 2d 2a 29 0d 50 52 4f | 43 45 44 55 52 45 20 53 |T-*).PRO|CEDURE S|
|00000430| 46 47 65 74 46 69 6c 65 | 28 6c 65 66 74 2c 74 6f |FGetFile|(left,to|
|00000440| 70 3a 49 4e 54 45 47 45 | 52 3b 20 70 72 6f 6d 70 |p:INTEGE|R; promp|
|00000450| 74 3a 53 74 72 50 74 72 | 3b 66 69 6c 65 46 69 6c |t:StrPtr|;fileFil|
|00000460| 74 65 72 3a 50 72 6f 63 | 50 74 72 3b 0d 20 20 20 |ter:Proc|Ptr;.   |
|00000470| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000480| 20 20 20 6e 75 6d 54 79 | 70 65 73 3a 20 49 4e 54 |   numTy|pes: INT|
|00000490| 45 47 45 52 3b 20 56 41 | 52 20 74 79 70 65 4c 69 |EGER; VA|R typeLi|
|000004a0| 73 74 3a 20 53 46 54 79 | 70 65 4c 69 73 74 3b 0d |st: SFTy|peList;.|
|000004b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000004c0| 20 20 20 20 20 20 20 64 | 6c 67 48 6f 6f 6b 3a 20 |       d|lgHook: |
|000004d0| 50 72 6f 63 50 74 72 3b | 20 56 41 52 20 20 20 20 |ProcPtr;| VAR    |
|000004e0| 72 65 70 6c 79 3a 20 53 | 46 52 65 70 6c 79 29 3b |reply: S|FReply);|
|000004f0| 0d 20 20 20 42 45 47 49 | 4e 20 74 72 61 70 61 72 |.   BEGI|N trapar|
|00000500| 67 3a 3d 73 66 67 65 74 | 3b 20 74 72 61 70 6e 72 |g:=sfget|; trapnr|
|00000510| 3a 3d 50 61 63 6b 33 3b | 20 50 54 52 41 50 31 20 |:=Pack3;| PTRAP1 |
|00000520| 45 4e 44 20 20 53 46 47 | 65 74 46 69 6c 65 3b 0d |END  SFG|etFile;.|
|00000530| 0d 20 20 28 2a 24 50 2d | 2c 24 53 2d 2c 24 54 2d |.  (*$P-|,$S-,$T-|
|00000540| 2a 29 0d 50 52 4f 43 45 | 44 55 52 45 20 53 46 50 |*).PROCE|DURE SFP|
|00000550| 47 65 74 46 69 6c 65 28 | 6c 65 66 74 2c 74 6f 70 |GetFile(|left,top|
|00000560| 3a 49 4e 54 45 47 45 52 | 3b 0d 20 20 20 20 20 20 |:INTEGER|;.      |
|00000570| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000580| 70 72 6f 6d 70 74 3a 20 | 53 74 72 50 74 72 3b 20 |prompt: |StrPtr; |
|00000590| 20 20 20 66 69 6c 65 46 | 69 6c 74 65 72 3a 20 50 |   fileF|ilter: P|
|000005a0| 72 6f 63 50 74 72 3b 0d | 20 20 20 20 20 20 20 20 |rocPtr;.|        |
|000005b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 6e |        |       n|
|000005c0| 75 6d 54 79 70 65 73 3a | 20 49 4e 54 45 47 45 52 |umTypes:| INTEGER|
|000005d0| 3b 20 56 41 52 20 74 79 | 70 65 4c 69 73 74 3a 20 |; VAR ty|peList: |
|000005e0| 53 46 54 79 70 65 4c 69 | 73 74 3b 0d 20 20 20 20 |SFTypeLi|st;.    |
|000005f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000600| 20 20 20 20 64 6c 67 48 | 6f 6f 6b 3a 20 50 72 6f |    dlgH|ook: Pro|
|00000610| 63 50 74 72 3b 20 56 41 | 52 20 20 20 20 72 65 70 |cPtr; VA|R    rep|
|00000620| 6c 79 3a 20 53 46 52 65 | 70 6c 79 3b 0d 20 20 20 |ly: SFRe|ply;.   |
|00000630| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000640| 20 20 20 20 20 20 20 64 | 6c 67 49 44 3a 20 49 4e |       d|lgID: IN|
|00000650| 54 45 47 45 52 3b 20 20 | 20 66 69 6c 74 65 72 50 |TEGER;  | filterP|
|00000660| 72 6f 63 3a 20 50 72 6f | 63 50 74 72 29 3b 0d 20 |roc: Pro|cPtr);. |
|00000670| 20 20 42 45 47 49 4e 20 | 74 72 61 70 61 72 67 3a |  BEGIN |traparg:|
|00000680| 3d 73 66 70 67 65 74 3b | 20 74 72 61 70 6e 72 3a |=sfpget;| trapnr:|
|00000690| 3d 50 61 63 6b 33 3b 20 | 50 54 52 41 50 31 20 45 |=Pack3; |PTRAP1 E|
|000006a0| 4e 44 20 20 53 46 50 47 | 65 74 46 69 6c 65 3b 0d |ND  SFPG|etFile;.|
|000006b0| 0d 42 45 47 49 4e 0d 45 | 4e 44 20 53 46 70 61 63 |.BEGIN.E|ND SFpac|
|000006c0| 6b 61 67 65 2e 0d 00 00 | 00 00 00 00 00 00 00 00 |kage....|........|
|000006d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000700| 00 00 01 00 00 00 01 16 | 00 00 00 16 00 00 00 d4 |........|........|
|00000710| 79 ab 00 00 00 a1 00 d6 | 00 00 06 9e 00 00 08 00 |y.......|........|
|00000720| 00 0b 00 00 01 ea 00 00 | 04 00 99 8c e8 61 9b d2 |........|.....a..|
|00000730| 0d 53 46 50 41 43 4b 41 | 47 45 2e 4d 4f 44 02 00 |.SFPACKA|GE.MOD..|
|00000740| 00 00 54 45 58 54 45 44 | 49 54 01 00 ff ff ff ff |..TEXTED|IT......|
|00000750| 00 00 54 45 58 54 45 44 | 49 54 01 00 ff ff ff ff |..TEXTED|IT......|
|00000760| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000770| 00 00 9b da 95 17 00 00 | 06 46 00 00 01 ea 4d 4c |........|.F....ML|
|00000780| 4f 44 4d 4c 44 52 01 00 | 00 40 00 80 4e eb 00 00 |ODMLDR..|.@..N...|
|00000790| 01 48 00 e0 00 00 85 de | 00 00 88 00 00 00 00 00 |.H......|........|
|000007a0| 00 00 00 00 00 00 9b d4 | 56 a5 9b d4 56 c4 0b 54 |........|V...V..T|
|000007b0| 65 73 74 44 69 72 2e 4c | 4f 44 80 00 54 45 58 54 |estDir.L|OD..TEXT|
|000007c0| 45 44 49 54 00 00 ff f8 | fe c1 00 00 00 00 01 4b |EDIT....|.......K|
|000007d0| 00 ce 00 00 06 df 00 00 | 08 00 00 00 00 00 00 00 |........|........|
|000007e0| 00 00 00 00 9b da 95 17 | 9b da 96 a4 0d 53 46 50 |........|.....SFP|
|000007f0| 41 43 4b 41 47 45 2e 4d | 4f 44 00 00 00 00 00 00 |ACKAGE.M|OD......|
|00000800| 00 00 00 0a 00 09 06 4d | 6f 6e 61 63 6f 20 00 00 |.......M|onaco ..|
|00000810| 00 04 00 06 00 08 00 00 | 01 00 00 00 01 16 00 00 |........|........|
|00000820| 00 16 00 00 00 d4 00 01 | 81 32 01 2e 00 00 00 1c |........|.2......|
|00000830| 00 46 00 01 45 46 4e 54 | 00 00 00 12 45 54 41 42 |.F..EFNT|....ETAB|
|00000840| 00 00 00 1e 03 eb 00 00 | 00 00 00 00 00 01 aa 8a |........|........|
|00000850| 03 ec 00 47 00 00 00 0e | 00 01 aa b2 46 4f 42 4a |...G....|....FOBJ|
|00000860| ff ff ff ff 00 40 01 aa | 00 40 01 ac 00 40 01 ae |.....@..|.@...@..|
|00000870| 00 40 01 b0 00 40 01 b2 | 00 40 01 b4 00 40 01 b6 |.@...@..|.@...@..|
|00000880| 00 40 01 b8 00 00 56 d0 | 00 40 01 bc 00 40 01 be |.@....V.|.@...@..|
|00000890| 00 40 01 be 00 40 01 be | 00 40 01 be 00 40 01 be |.@...@..|.@...@..|
|000008a0| 00 40 01 46 4f 42 4a ff | ff ff ff 00 40 01 aa 00 |.@.FOBJ.|....@...|
|000008b0| 40 01 ac 00 40 01 ae 00 | 40 01 b0 00 40 01 b2 00 |@...@...|@...@...|
|000008c0| 40 01 b4 00 40 01 b6 00 | 40 01 b8 00 00 56 d0 00 |@...@...|@....V..|
|000008d0| 40 01 bc 00 40 01 be 00 | 40 01 be 00 40 01 be 00 |@...@...|@...@...|
|000008e0| 40 01 be 00 40 01 be 00 | 40 01 00 00 00 00 00 00 |@...@...|@.......|
|000008f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+